home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / midi / omed_pt.lha / rexx / Copy.omed < prev    next >
Text File  |  1995-11-25  |  652b  |  32 lines
  1. /* Copy ranged notes and store rangespecs - Case 28-10-95 */
  2.  
  3. address OCTAMED_REXX
  4. options results
  5.  
  6. 'rn_isranged var rn_state'
  7.  
  8. if rn_state = 0
  9. then do
  10.     'wi_Showstring "Please select range first"'
  11.     exit
  12. end
  13. else
  14.     'rn_getrangestartline'; rnstartline = result
  15.     'rn_getrangeendline'; rnendline = result
  16.  
  17.     length = rnendline - rnstartline
  18.     length = length + 1
  19.  
  20.     call open("rn_length","T:rn_length.omedtemp",W)
  21.     call writech("rn_length",length)
  22.     call close("rn_length")
  23.  
  24.     call open("rn_lines","T:rn_lines.omedtemp",W)
  25.     call writeln("rn_lines",rnstartline)
  26.     call writeln("rn_lines",rnendline)
  27.     call close("rn_lines")
  28.  
  29.     'rn_copy'
  30.  
  31.     'wi_showstring COPIED'
  32. exit